home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / med res demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  2.5 KB  |  75 lines
  1. 10 print"[147][142]":poke53281,0:poke53280,12:forxx=1to100
  2. 15 oi=1
  3. 20 forxx=1to31step2:px=38-(xx/2):py=21-(xx/2):sx=xx:sy=xx:c=2:print"[147]":poke679,c
  4. 21 poke680,px:poke681,py:poke682,sx:poke683,sy:sys49152:next
  5. 30 forxx=31to1step-2:px=38-(xx/2):py=21-(xx/2):sx=xx:sy=xx:c=10:print"[147]":poke679,c
  6. 31 poke680,px:poke681,py:poke682,sx:poke683,sy:sys49152:next
  7. 40 oi=oi+1:ifoi<4then20
  8. 50 gosub6060:cv=13:gosub6200:print"[147]"
  9. 55 x(1)=9:x(2)=19:x(3)=29:x(4)=39
  10. 56 c(1)=2:c(2)=10:c(3)=7:c(4)=10
  11. 59 forim=0to50
  12. 60 forik=1to4
  13. 65 px=39-(x(ik)/2):py=24-(x(ik)/2):sx=x(ik):sy=x(ik):c=c(ik):poke679,c
  14. 66 poke680,px:poke681,py:poke682,sx:poke683,sy:sys49152:next
  15. 70 foril=1to4:x(il)=x(il)+2:ifx(il)=41thenx(il)=1
  16. 75 next:next
  17. 80 gosub6060:cv=14:gosub6200:poke53281,14:print"[147]"
  18. 90 oo=1:cw=10:gosub6210:cw=5:gosub6210:cw=4:gosub6210:cw=7:gosub6210
  19. 95 cw=8:gosub6210:cw=0:gosub6210:oo=0
  20. 100 forxu=1to10:onxugosub103,104,105,106,107,103,104,105,106,107:goto110
  21. 103 cd=10:return
  22. 104 cd=14:return
  23. 105 cd=7:return
  24. 106 cd=13:return
  25. 107 cd=4:return
  26. 110 yp=int(rnd(1)*34+8):forxv=0to79:onint(rnd(1)*6+1)goto111,113,115,117,120,120
  27. 111 ifyp<48thenyp=yp+.5
  28. 112 goto120
  29. 113 ifyp>1thenyp=yp-1
  30. 114 goto120
  31. 115 ifyp>1thenyp=yp-.5
  32. 116 goto120
  33. 117 ifyp<48thenyp=yp+1
  34. 118 goto120
  35. 120 sys51000,xv,yp,cd:next:next
  36. 130 gosub6060:cv=3:gosub6200:print"[147]"
  37. 150 poke679,4:poke680,8:poke681,6:poke683,4:fora=1to40:poke682,a:print"[147]"
  38. 160 sys49152:next:poke679,10
  39. 165 fora=4to25:poke683,a:print"[147]":sys49152:next:poke679,13
  40. 170 fora=1to37:poke682,peek(682)-1:poke680,peek(680)+1:print"[147]":sys49152:next
  41. 175 poke679,14:fora=1to20:poke683,peek(683)-1:poke681,peek(681)+1:print"[147]"
  42. 180 sys49152:next:poke679,7:fora=3to34:poke682,a:print"[147]":sys49152:next
  43. 185 poke679,2:fora=1to15:poke681,peek(681)-1:poke683,peek(683)+2:print"[147]"
  44. 190 sys49152:next:poke679,5:fora=1to33:poke680,peek(680)+1:poke682,peek(682)-1
  45. 195 print"[147]":sys49152:next:print"[147]":fora=1to1000:next
  46. 200 cw=2:oo=1:gosub6210:cw=0:gosub6210:oo=0
  47. 5995 end
  48. 6000 poke56334,0:poke1,51:fora=0to7:ch(a)=peek(53248+ch*8+a):next:poke1,55
  49. 6005 poke56334,1:return
  50. 6010 xs=1:ifsx<0thenxs=-1
  51. 6012 ys=1:ifsy<0thenys=-1
  52. 6015 fora=pxtopx+sx step xs:sys51000,a,py,c:sys51000,a,py+sy,c:next
  53. 6020 fora=pytopy+sy step ys:sys51000,px,a,c:sys51000,px+sx,a,c:next:return
  54. 6030 gosub6000:fora=0to7:gosub6050:forb=0to7:ifbt(b)thensys51000,lx+b,ly+a,lc
  55. 6040 next:next
  56. 6050 forz=0to7:bt(7-z)=ch(a)and2^z:next:return
  57. 6060 poke198,0
  58. 6065 geta$:ifa$<>" "then6065
  59. 6070 poke198,0:return
  60. 6080 poke648,192:print""m$:poke648,4:forxz=1tolen(m$):ch=peek(49151+xz)
  61. 6090 lx=xm+(xz-1)*8:ly=ym:lc=mc:gosub6030:next:return
  62. 6100 fora=0toint(si/4):forb=0tosi:sys51000,x1+b,y1+a,c1:next:next
  63. 6110 fora=int(si/4)+1toint(si/1.3):forb=1toabs(si-1):sys51000,x1+b,y1+a,c2
  64. 6120 next:next
  65. 6130 fora=int(si/1.3)+1toint(si):forb=0tosi:sys51000,x1+b,y1+a,c1:next:next
  66. 6140 return
  67. 6150 fora=0tos2:forb=0tos2steps2/4:forba=0tos2/12:sys51000,x2+a,y2+b+ba,c3
  68. 6160 next:next:next:return
  69. 6200 fortt=24to0step-1:poke680,24-tt:poke681,24-tt:poke682,tt*2+31
  70. 6205 poke683,tt*2+1:poke679,cv:sys49152:fortu=0to100:next:next:return
  71. 6210 fortt=24to0step-1:poke680,24-tt:poke681,24-tt:poke682,tt*2+31
  72. 6220 poke683,tt*2+1:poke679,cw:sys49152:next
  73. 6230 ifoothenpoke53281,cw:print"[147]"
  74. 6240 return
  75.